#!/usr/bin/env perl
#

use strict;
use 5.010;

my $a = '1111';
my $b = "aaa";

if($a || $b)
{
    say "true";
}
else
{
    say "fallse";
}

if ($a && $b)
{
    say "true";
}
else
{
    say "false";
}
